home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / crag boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  40 lines
  1. 4 dv=peek(186):ifdv<8thendv=8
  2. 5 poke53281,.:poke53280,12:print"[147]"chr$(142)""
  3. 6 poke214,9:print:printtab(16)"[154]c r a g"
  4. 7 poke214,11:print:print"[159]       a categorical game of dice
  5. 8 [151]214,13:[153]:[153]"def         ...loading program..."
  6. 10 [141]61000
  7. 11 f$[178]"cleveland font":sa[178]14336:[141]11000:[151]53272,31
  8. 12 f$[178]"ss64.o":sa[178]828:[141]11000
  9. 13 f$[178]"dice.spr":sa[178]12352:[141]11000
  10. 14 f$[178]"mouse.spr":sa[178]12288:[141]11000
  11. 105 [137]60000
  12. 110 :
  13. 10000 [159]15,8,15,"s0:crag boot":[160]15:[148]"0:crag boot",8:[128]
  14. 10010 :
  15. 11000 hi[178][181](sa[173]256):lo[178]sa[171]hi[172]256
  16. 11005 [158]57812f$,dv,0
  17. 11010 [151]780,0:[151]781,lo:[151]782,hi
  18. 11015 [158]65493:[142]
  19. 11020 :
  20. 60000 [153]"stopload"[199](34)"crag"[199](34)",8"
  21. 60025 [153]"run"
  22. 60030 [151]43,1:[151]44,64:[151]16384,0
  23. 60035 [151]631,13:[151]632,13:[151]633,13:[151]198,3
  24. 60040 [162]
  25. 60999 :
  26. 61000 [151]214,15:[153]
  27. 61110 [153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  28. 61120 [153]"  print#                                    "
  29. 61130 [153]"                                      "
  30. 61140 [153]"                                      "
  31. 61150 [153]"      v1 published on loadstar #85    "
  32. 61160 [153]"      subscriptions 1-800-831-2694    "
  33. 61170 [153]"           all rights reserved        "
  34. 61180 [153]"                                      "
  35. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  36. 61200 au$[178]"c r a g":[151]214,17:[153]
  37. 61205 [153][166]20[171][195](au$)[173]2)"print#"au$
  38. 61210 au$[178]"by barbara h. schulak":[151]214,18:[153]
  39. 61220 [153][166]20[171][195](au$)[173]2)"print#"au$"":[142]
  40.